﻿Namespace Base
    Public MustInherit Class Conexion
        Protected m_CadenaConexion As String
        Protected m_StackError As ErrorsWeb

        Public Property CadenaConexion() As String
            Get
                Return m_CadenaConexion
            End Get
            Set(ByVal value As String)
                m_CadenaConexion = value
            End Set
        End Property

        Public ReadOnly Property StackError() As ErrorsWeb
            Get
                Return m_StackError
            End Get
        End Property

        Public Sub New(ByVal CadenaConexion As String)
            m_CadenaConexion = CadenaConexion
            m_StackError = New ErrorsWeb
        End Sub

        Public Sub New()
            m_CadenaConexion = ""
            m_StackError = New ErrorsWeb
        End Sub

        Protected Overrides Sub Finalize()
            m_StackError = Nothing

            MyBase.Finalize()
        End Sub
    End Class
End Namespace